(calendar-absolute-from-time): Fix typo by interchanging (floor) and (%).

diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el
index 15ce7cd722a4da6686f65754b15b46a74760b57a..d480914ded8bb9a3cc02d060520a3e50c760b2fc 100644 (file)
--- a/lisp/calendar/cal-dst.el
+++ b/lisp/calendar/cal-dst.el
@@ -64,7 +64,7 @@ absolute date ABS-DATE is the equivalent moment to X."
             ;; floor((2^16 h +l) / (60*60*24))
             (* 512 (floor h 675)) (floor u 675))
          ;; (2^16 h +l) % (60*60*24)
-         (+ (* (mod u 675) 128) (mod l 128)))))
+         (+ (* (% u 675) 128) (% l 128)))))
 
 (defun calendar-time-from-absolute (abs-date s)
   "Time of absolute date ABS-DATE, S seconds after midnight.